This forum is closed to new posts and
responses. The content has been migrated to the Digital Solutions Community. Please join us there for new content as well as this content. For customer support, please visit the official HCL customer support channels below:
Sure... ~Umberto Nongeroson 20.Jan.04 08:14 PM a Web browser Applications Development 6.0.3Windows 2000
Sub Click(Source As Button)
'-- Get Front and Backend Document
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.currentdocument
'-- Document can not be in edit mode
uidoc.EditMode = False
Dim doc As NotesDocument
Set doc = UIDoc.document
'-- Create Session object to access Notes.ini "Directory" value
Dim Session As New NotesSession
Dim dirpath As String, fileName As String
dirpath = session.GetEnvironmentString( "Directory", True ) + "\Quality\*.*"
'-- Loop through all filenames in QUALITY subdir of NDD
fileName = Dir$(dirpath, 0)
Dim rtitem As NotesRichTextItem, object As NotesEmbeddedObject
Set rtitem = doc.GetFirstItem( "Body" )
Do While fileName <> ""
Set object = rtitem.EmbedObject(EMBED_ATTACHMENT, "", fileName)
fileName = Dir$()
Loop
Call doc.Save(True, True)
Call uidoc.Close
End Sub
Return to top
. . Sure... (~Dan Elhipister... 20.Jan.04)
Print this page
